<%

Function mensagens_editar_mensagem(tabela, id_mensagem, mensagem)

		mensagem=sql_cod(mensagem)
		
		DIM id_usuario_para
		
		Select Case tabela
		
			Case "geral"
			
					id_usuario_para = 0
			
			Case "individuais"
			
					str = "SELECT id_usuario_para from individuais where id="&id_mensagem
  					Set rs = conexao_mensagens.Execute(str)	
					
					id_usuario_para = rs("id_usuario_para")
					
			Case else
			
					str = "SELECT id_clube from "&tabela&" where id="&id_mensagem
  					Set rs = conexao_mensagens.Execute(str)	
					
					id_usuario_para = rs("id_clube")
		
		End Select		
		
		If permissao_tabelas(tabela, id_usuario_para) then

			str = "UPDATE "&tabela&" SET "
			str = str & "mensagem='"&mensagem&"' "
			str = str & " WHERE id="&id_mensagem
			Set rsI = conexao_mensagens.Execute(str)
			
		End If

		
End Function

%>